COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 NODM PERMITS USER TO USE ALL 24 LINES OF DATAMEDIA DISPLAY IN DM MODE
C00005 ENDMK
C⊗;
; NODM PERMITS USER TO USE ALL 24 LINES OF DATAMEDIA DISPLAY IN DM MODE
	TITLE	NODM		;**** THIS VERSION FOR FORTRAN 10 *********
	search dpyuuo

breakw:	.TOESC		; This 3-word block signals to the monitor to turn off
	0		;   the who line, the same as typing a break w
	byte	(1)1 (2)0 (1)1 (7)0,127 (18)0

brfai:	outstr	[asciz/
NODM ERROR: Break w failed.  Something is terribly wrong./]
	jrst	4,.	; stop here

	entry	NODM
NODM:	move	1,[xwd 3,breakw]
	trmop.	1,	; If successful, turn off the who line
	 jrst	brfai
	dpypos	777	; Move page to top of screen
	dpysiz	30001	; Each of the 24 lines is a separate glitch
	popj	17,

; YESDM CLEANS IT ALL UP AGAIN, PROIR TO THE PROGRAM EXITING.
escw:	.TOESC		; This 3-word block signals to the monitor to turn
	0		;   the who line back on, the same as typing an escape w
	byte	(1)0 (2)0 (1)1 (7)0,127 (18)0

escfai:	outstr	[asciz/
YESDM ERROR: Escape w failed.  Something is terribly wrong./]
	jrst	4,.	; stop here

	entry	YESDM
YESDM:	dpysiz	7003	; Restore old page size: 7 glitches, 3 lines/glitch
	dpypos	526	; Move page back to fourth line of screen
	move	1,[xwd 3,escw]
	trmop.	1,	; If successful, turns the who line back on
	 jrst	escfai
	popj	17,
	end